home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / windows4 / pwl50x.zip / LITE.BI < prev    next >
Text File  |  1992-03-03  |  7KB  |  200 lines
  1.  
  2. ' ProWindows(tm) LITE 5.00 (Unregistered)
  3. ' Copyright 1988-1992 DSE Software Publishing
  4.  
  5. CONST AUTOCLOSE% = 512
  6. CONST AUTOSCROLL% = 8192
  7. CONST BEEPER% = 2
  8. CONST CLICKER% = 1
  9. CONST DISABLE% = 0
  10. CONST DRAGBAR% = 4
  11. CONST ENABLE% = 1
  12. CONST FLAT% = 128
  13. CONST GLISANDO% = 3
  14. CONST HELPSCROLL% = 1024
  15. CONST HORZSCROLLBAR% = 8
  16. CONST NOCOMPRESS% = 256
  17. CONST OFFBUTTON% = 1
  18. CONST RESIZEBUTTON% = 2
  19. CONST SELECTABLE% = 64
  20. CONST VERTSCROLLBAR% = 16
  21. CONST ZEROMEM% = 2048
  22.  
  23. TYPE wincb
  24.  row AS INTEGER
  25.  col AS INTEGER
  26.  rows AS INTEGER
  27.  cols AS INTEGER
  28.  attr AS INTEGER
  29.  Border AS INTEGER
  30.  Shadow AS INTEGER
  31.  Zoom AS INTEGER
  32.  ptr AS INTEGER
  33.  cbytes AS INTEGER
  34.  abytes AS INTEGER
  35. END TYPE
  36.  
  37. TYPE vircb
  38.  row AS INTEGER
  39.  col AS INTEGER
  40.  rows AS INTEGER
  41.  cols AS INTEGER
  42.  vrow AS INTEGER
  43.  vcol AS INTEGER
  44.  vrows AS INTEGER
  45.  vcols AS INTEGER
  46.  attr AS INTEGER
  47.  Border AS INTEGER
  48.  Shadow AS INTEGER
  49.  Zoom AS INTEGER
  50.  WI AS INTEGER
  51.  Options AS INTEGER
  52.  TitlePos AS INTEGER
  53.  Title AS STRING * 20
  54.  buttons AS INTEGER
  55.  LastButton AS INTEGER
  56.  VertPos AS INTEGER
  57.  HorzPos AS INTEGER
  58.  Signature AS INTEGER
  59. END TYPE
  60.  
  61. TYPE InkeyRec
  62.  Length AS INTEGER
  63.  ShiftState AS INTEGER
  64.  KeyChar AS STRING * 1
  65.  KeyValue AS INTEGER
  66.  AltChar AS STRING * 1
  67.  AltValue AS INTEGER
  68.  ExtChar AS STRING * 2
  69.  ExtValue AS INTEGER
  70. END TYPE
  71.  
  72. TYPE EventCoords
  73.  event AS INTEGER
  74.  row AS INTEGER
  75.  col AS INTEGER
  76. END TYPE
  77.  
  78. TYPE cursorTYPE
  79.  row AS INTEGER
  80.  col AS INTEGER
  81.  attr AS INTEGER
  82. END TYPE
  83.  
  84. DECLARE FUNCTION attr% (f%, b%)
  85. DECLARE FUNCTION BinAttr% (Fore%, Back%, High%, Blink%)
  86. DECLARE FUNCTION BWattr% (Attrib%)
  87. DECLARE FUNCTION CheckMouse% (buttons%)
  88. DECLARE FUNCTION DoubleClick% (DelayTime%)
  89. DECLARE FUNCTION FREEWINDOW% ()
  90. DECLARE FUNCTION GetEvent% (mode%)
  91. DECLARE FUNCTION GetMouse% (row%, col%)
  92. DECLARE FUNCTION GetMousePress% (button%, presses%, row%, col%)
  93. DECLARE FUNCTION GetMouseRelease% (button%, presses%, row%, col%)
  94. DECLARE FUNCTION GetUserCoords% (rw%, cl%, size%, row%, col%)
  95. DECLARE FUNCTION GetVirtualPtr% (winHandle%)
  96. DECLARE FUNCTION IsBWmode% ()
  97. DECLARE FUNCTION Mouse% (button%, cmd%)
  98. DECLARE FUNCTION RAND% (Limit%)
  99. DECLARE FUNCTION ScanQuickKeys% (K$)
  100. DECLARE FUNCTION ScreenMode% ()
  101. DECLARE FUNCTION VideoBoard% ()
  102. DECLARE FUNCTION VideoPage% ()
  103. DECLARE FUNCTION VideoPageLength% ()
  104. DECLARE FUNCTION WhatWindow% (row%, col%)
  105.  
  106. DECLARE SUB ClearWindow ()
  107. DECLARE SUB Click ()
  108. DECLARE SUB CloneWindow (winHandle%)
  109. DECLARE SUB CloseWindow (winHandle%)
  110. DECLARE SUB ColorScreen (row%, col%, rows%, cols%, Attrib%, SNOW%)
  111. DECLARE SUB Copyright (row%, col%)
  112. DECLARE SUB csprint (row%, col%, qattr%, StrDat$)
  113. DECLARE SUB cwcprint (row%, qattr%, StrDat$)
  114. DECLARE SUB cwprint (row%, col%, qattr%, StrDat$)
  115. DECLARE SUB DisplayWindow (winHandle%, row%, col%, rows%, cols%)
  116. DECLARE SUB DrawBox (row%, col%, rows%, cols%, qattr%, brdrsel%)
  117. DECLARE SUB FillBuffer (Segment%, Offset%, size%, char%, Attrib%)
  118. DECLARE SUB FillScreen (row%, col%, rows%, cols%, Attrib%, char%, SNOW%)
  119. DECLARE SUB ForceWindow (winHandle%)
  120. DECLARE SUB GetScreen (row%, col%, rows%, cols%, Segment%, Offset%, SNOW%)
  121. DECLARE SUB GetVideoInfo (Segment%, Offset%, rows%, cols%)
  122. DECLARE SUB GetWindowMouse (button%, frow%, fcol%, frows%, fcols%, row%, col%)
  123. DECLARE SUB GrabWindow (winHandle%)
  124. DECLARE SUB HideWindow (winHandle%)
  125. DECLARE SUB HotPrint (row%, col%, Attr1%, Text$, Attr2%, HotChar$)
  126. DECLARE SUB InitPro ()
  127. DECLARE SUB InitVideo ()
  128. DECLARE SUB MainWindow (winHandle%)
  129. DECLARE SUB MakeWindow (row%, col%, rows%, cols%, qattr%, brdrsel%, Shadow%, Zoom%, SNOW%)
  130. DECLARE SUB MouseCursoroff ()
  131. DECLARE SUB MouseCursorOn ()
  132. DECLARE SUB MoveWindow (winHandle%, row%, col%)
  133. DECLARE SUB Notice ()
  134. DECLARE SUB nprint (row%, col%, qattr%, UsingMask$, Number#)
  135. DECLARE SUB OpenWindow (winHandle%, rows%, cols%, Attrib%, Border%, Shadow%, Zoom%, Options%)
  136. DECLARE SUB PopSound ()
  137. DECLARE SUB PopWindow (row%, col%, rows%, cols%, qattr%, brdrsel%, Shadow%, Zoom%)
  138. DECLARE SUB PreInit ()
  139. DECLARE SUB PutScreen (row%, col%, rows%, cols%, Segment%, Offset%, SNOW%)
  140. DECLARE SUB QuickKey (Location%, Keypress$)
  141. DECLARE SUB ReAlignWindow (winHandle%, row%, col%)
  142. DECLARE SUB ReCycleMode (mode%)
  143. DECLARE SUB RefreshAllWindows ()
  144. DECLARE SUB RefreshMain ()
  145. DECLARE SUB RefreshMode (mode%)
  146. DECLARE SUB RefreshWindow (winHandle%)
  147. DECLARE SUB RemoveSound ()
  148. DECLARE SUB RemoveWindow ()
  149. DECLARE SUB ResetVideo ()
  150. DECLARE SUB ResizeWindow (winHandle%, rows%, cols%)
  151. DECLARE SUB ScrollScreen (row%, col%, rows%, cols%, Attrib%, slines%, sdir%)
  152. DECLARE SUB SeedRand (Value%)
  153. DECLARE SUB SetBWmode (mode%)
  154. DECLARE SUB SetCalendar (Handle%, row%, col%, Attrib%, status%)
  155. DECLARE SUB SetClock (Handle%, row%, col%, Attrib%, status%)
  156. DECLARE SUB SetEventDelay (ticks%)
  157. DECLARE SUB SetMonitorColor (Kolor%)
  158. DECLARE SUB SetMouse (row%, col%)
  159. DECLARE SUB SetMouseMode (newmode%)
  160. DECLARE SUB SetMouseWindow (row%, col%, rows%, cols%)
  161. DECLARE SUB SetShadow (mode%, Attrib%)
  162. DECLARE SUB SetUserCoords (Position%, row%, col%, rows%, cols%)
  163. DECLARE SUB SetVideoInfo (Segment%, Offset%, rows%, cols%)
  164. DECLARE SUB SetWindow (winHandle%)
  165. DECLARE SUB SetZoomSpeed (miliseconds%)
  166. DECLARE SUB SetZoomStyle (FadeMode%)
  167. DECLARE SUB ShowWindow (row%, col%, rows%, cols%, vrow%, vcol%)
  168. DECLARE SUB sprint (row%, col%, Attrib%, StrDat$, SNOW%)
  169. DECLARE SUB termMouse ()
  170. DECLARE SUB TitleWindow (DirPos%, Title$)
  171. DECLARE SUB UnAttr (Attrib%, Fore%, Back%)
  172. DECLARE SUB UnBinAttr (Attrib%, Fore%, Back%, High%, Blink%)
  173. DECLARE SUB UseDrivers (menus%, forms%, cursors%)
  174. DECLARE SUB vprint (row%, col%, Attrib%, StrDat$, SNOW%)
  175. DECLARE SUB wcprint (row%, StrDat$)
  176. DECLARE SUB winCLS (winHandle%)
  177. DECLARE SUB winColor (winHandle%, Fore%, Back%)
  178. DECLARE SUB winDeleteLine (winHandle%)
  179. DECLARE SUB winInsertLine (winHandle%)
  180. DECLARE SUB winLocate (winHandle%, row%, col%)
  181. DECLARE SUB winPos (winHandle%, row%, col%)
  182. DECLARE SUB winPrint (winHandle%, Text$)
  183. DECLARE SUB winPrintCR (winHandle%)
  184. DECLARE SUB winPrintCRLF (winHandle%)
  185. DECLARE SUB winPrintLF (winHandle%)
  186. DECLARE SUB winPrintLn (winHandle%, Text$)
  187. DECLARE SUB winPrintNum (winHandle%, format$, Value#)
  188. DECLARE SUB wlocate (row%, col%)
  189. DECLARE SUB wprint (row%, col%, StrDat$)
  190.  
  191. COMMON SHARED /cursorDATA/ cursor() AS cursorTYPE, CurCursor AS cursorTYPE, curvcb AS vircb, cursorOffset AS INTEGER
  192. COMMON SHARED /DialogData/ Keyboard AS InkeyRec, WindowEvent AS INTEGER, WindowHandle AS INTEGER, MenuItem AS INTEGER, KeyBuffer$
  193. COMMON SHARED /MouseEvents/ DataEvent AS EventCoords, UserEvent AS EventCoords
  194. COMMON SHARED /QuickKey/ QuickKeys AS INTEGER, QuickKeyEvent AS INTEGER
  195. COMMON SHARED /VideoData/ MAXROWS AS INTEGER, MAXCOLS AS INTEGER, VIDEOSEGMENT AS INTEGER, VIDEOOFFSET AS INTEGER
  196. COMMON SHARED /VLSdata/ VirMem() AS INTEGER, vcb() AS vircb, wcbndx() AS INTEGER, CurrentWindow AS INTEGER, UpdateMode AS INTEGER, GlobalOptions AS INTEGER, FreezeFrame AS INTEGER, VideoRecycle AS INTEGER
  197. COMMON SHARED /WindowData/ wcb() AS wincb, scrn() AS INTEGER, WI AS INTEGER, SoundMode AS INTEGER, SNOW AS INTEGER, CreateMode AS INTEGER, ERRNO AS INTEGER
  198. COMMON SHARED /wprintData/ WindowSeg AS INTEGER, WindowOff AS INTEGER, WindowSize AS INTEGER, WindowSig AS INTEGER
  199.  
  200.